home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / LPTTEST.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  194b  |  13 lines
  1. open "LPT1:" for random as #1
  2. ?"LPT1-Test - Version 0.9"
  3. i$=""
  4. cls
  5. while i$=""
  6.  ?#1,string$(1000,chr$(rnd*250));
  7.  x&=x&+1025&
  8.  locate 3,1:?"Output=";x&
  9.  i$=inkey$
  10. wend
  11. close #1
  12. end
  13.